home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Mike's Externals.cpt / Mike's Externals / card_5609.txt < prev    next >
Text File  |  1990-02-22  |  2KB  |  66 lines
  1. -- card: 5609 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2764
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8004
  11. -- rect: left=263 top=51 right=70 bottom=328
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: TryMe
  20. ----- HyperTalk script -----
  21. on mousedown
  22.   get the rect of the target
  23.   put "item1;item2 is bold <B;(-Item3 is Disabled;item4 with macro /Q" into k
  24.   put item 1 of it into b
  25.   put item 4 of it into a
  26.   put popupnum(a,b+1,k) into m
  27. end mousedown
  28.  
  29.  
  30.  
  31. -- part contents for background part 17
  32. ----- text -----
  33. PopUpNum
  34.  
  35. -- part contents for background part 18
  36. ----- text -----
  37. Gary Bond
  38.  
  39. -- part contents for background part 19
  40. ----- text -----
  41. XFCN
  42.  
  43. -- part contents for background part 20
  44. ----- text -----
  45. PopUpNum(top,left,"MenuStr")
  46.  
  47. -- part contents for background part 21
  48. ----- text -----
  49. This extremely handy function lets you use popup menus.  Use it in conjunction with a button for a pseudomenu.  The menu string is a list of menu items separated by semicolons.  If you are familiar with metacharacters used with menus, you can use those too.  See the card button "TryMe" for a testdrive.
  50.  
  51. -- part contents for background part 23
  52. ----- text -----
  53.  
  54. on mousedown
  55.   put "Apple;Orange;Banana;Kiwi" into menustr
  56.   put popupnum(50,65,menustr) into itemnumber
  57. end mousedown
  58.  
  59. on mousedown
  60.   get the rect of the target
  61.   put "item1;item2 is bold <B;(-Item3 is Disabled;item4 with macro /Q"      ¬†¬†¬†¬†into k
  62.   put item 1 of it into b
  63.   put item 4 of it into a
  64.   put popupnum(a,b+1,k) into m
  65. end mousedown   
  66.